Tracing Paper - Rotation

Tracing Paper

Drag

Construction Lines

Required angle

Pencil

A_1 = (13, 6)
B_1 = (15, 11)
C_1 = (16, 11)
D_1 = (17, 9)
E = (15, 9)
F = (15, 6)
poly1, a, b, c, d, e, f = Polygon(A_1, B_1, C_1, D_1, E, F)
G = (-5.171533888251223, 8.397012648230445)
o = false
f_1 = Line(A_1, xAxis)
R = (10, 4)
h_1 = Line(R, xAxis)
S = Point(h_1)
p_1 = Circle(R, S)
Drag = Point(p_1)
T' = Rotate(Drag, 45*°, R)
i_1 = Line(R, T')
C = Point(i_1)
A = Point(i_1)
W' = Rotate(A, 315*°, C)
q_1 = Line(W', C)
n_1 = Rotate(i_1, 315*°, C)
r_1 = Rotate(i_1, 45*°, A)
D = Intersect(r_1, n_1)
η = Angle(S, R, Drag)
E_1 = Rotate(A_1, η, R)
F_1 = Rotate(B_1, η, R)
G_1 = Rotate(C_1, η, R)
H_1 = Rotate(D_1, η, R)
E'_1 = Rotate(E, η, R)
F'_1 = Rotate(F, η, R)
poly1'_1, e_2, f_2, g_2, h_2, e'_1, f'_1 = Polygon(E_1, F_1, G_1, H_1, E'_1, F'_1)
s_1 = Segment(A, C)
B = Mirror(D, s_1)
H = Point(Circle[R, 10])
g = Segment(R, H)
h = Circle(R, 10)
Drag_1 = Point(h)
i = Segment(R, Drag_1)
R' = Rotate(R, η, R)
H' = Rotate(H, η, R)
g' = Segment(R', H')
j = false
k = false
l = false
α = Angle(S, R, Drag_1)
text1: "" + α + ""
β = Angle(S, R, Drag_1)
text2: "$ \beta = " + (LaTeX[β]) + " $"